R = 1885  /  6... r = 190  / 3

2R / r  = 9,921052629

mal 35 910  ist  356 264.9999

ergibt für Kontaktdreiecksfläche
                         
tatsächlich        3619.57559681698

.

Summe   ---------------------------------------------------------------------------------------------
                                       -15.32095491                          109,8001768  

 mal - 2R/r                            (       152         ,   -   1089,333...)                                         , 

M_i = Point(yAxis)
c_2 = Circle(M_i, 532)
B_1, B_7 = Intersect(c_2, xAxis)
d = Circle(B_7, 377)
e = Circle(M_i, 225)
C_1, D = Intersect(e, d)
d1, b, a, c = Polygon(M_i, C_1, B_7)
f, g = AngularBisector(b, c)
h, i = AngularBisector(a, c)
j, k = AngularBisector(a, b)
B_2 = Intersect(b, i)
B_3 = Intersect(a, g)
M_2 = Intersect(i, k)
B_6 = Intersect(k, c)
X_1 = Intersect(j, f)
F = Intersect(h, d1)
G = Intersect(h, d1)
X_3 = Intersect(f, h)
I = Intersect(h, d1)
X_2 = Intersect(h, j)
d2, h_1, x_a, x_b = Polygon(X_2, X_1, X_3)
l = OrthogonalLine(M_2, c)
F_c = Intersect(l, c)
p = Circle(M_2, F_c)
abstandMiFc = Distance(M_2, F_c)
TextMiFc: "r = " + abstandMiFc + ""
q = Circle(M_i, B_7, C_1)
E = Center(d)
M_1 = Center(q)
abstandBMu = Distance(B_7, M_1)
TextBMu: "R = " + abstandBMu + ""
B_5 = Intersect(p, b)
B_4 = Intersect(p, a)
d3, f_c, b_a, b_b = Polygon(B_4, B_5, F_c)
verschoben = Vector(M_2, M_i)
A = Translate(M_i, verschoben)
v = Vector(M_i, A)
X_b = Translate(X_1, verschoben)
w = Vector(X_1, X_b)
X_a = Translate(X_2, verschoben)
m = Vector(X_2, X_a)
B_b = Translate(B_5, m)
n = Vector(B_5, B_b)
B_a = Translate(B_4, m)
r = Vector(B_4, B_a)
B_c = Translate(B_6, m)
s = Vector(B_6, B_c)
B = Translate(B_7, m)
t = Vector(B_7, B)
X_c = Translate(X_3, verschoben)
u_1 = Vector(X_3, X_c)
B'_1 = Translate(B_7, verschoben)
v_1 = Vector(B_7, B'_1)
d4, m_1, k_1, l_1 = Polygon(B_b, B_a, B_c)
C = Translate(C_1, verschoben)
w_1 = Vector(C_1, C)
d5, c', a', b' = Polygon(A, B, C)
d6, n_1, j_1, h_2 = Polygon(X_a, X_b, X_c)
M_u = Translate(M_1, verschoben)
a_1 = Vector(M_1, M_u)
Text3 = LaTeX(X_c, true, true)
Text7 = LaTeX(B_c, true, true)
abstandMuB = Distance(M_u, B)
Text11 = TableText({LaTeX[Text10, true, true]}, {LaTeX[B_a, true, true]})
umfangd4 = Perimeter(d4)
Punktd4 = PointIn(d4)
Text12 = LaTeX(B_b, true, true)
umfangq = Circumference(q)
Punktq = PointIn(q)
c_1 = Circle(M_i, 190 / 3)
u = Vector(M_i, A)
b_1 = Vector(M_i, B)
d_1 = Vector(M_i, C)
A' = Translate(A, b_1)
e_1 = Vector(A, A')
Gergonne = Translate(A', d_1)
f_1 = Vector(A', Gergonne)
H = Midpoint(A, C)
J = Mirror(B_b, H)
g_1 = Segment(J, B)
p_1 = Circle(X_b, J)
K = Midpoint(B, C)
L = Mirror(B_a, K)
i_1 = Segment(A, L)
M = Midpoint(A, B)
N = Mirror(B_c, M)
Ankreis__anC = Circle(X_c, N)
q_1 = Circle(X_a, L)